perm filename S[COL,LCS] blob
sn#351028 filedate 1978-04-24 generic text, type T, neo UTF8
1) SC3.F4[COL,LCS] and 2) SC3.F4[SCR,LCS] 4-24-78 19:19 pages 1,1
**** File 1) SC3.F4[COL,LCS], Page 1 line 10
1) 01000 1,COFF1(27),COFF2(27),RREST(27),AA(100),NPLAY(7),JPLAY(7)
1) 01100 C WITH VX,IOUT AT 70 AND IFM AT 80 OK FOR ONLY
**** File 2) SC3.F4[SCR,LCS], Page 1 line 10
2) 1,COFF1(27),COFF2(27),RREST(27),AA(100)
2) C WITH VX,IOUT AT 70 AND IFM AT 80 OK FOR ONLY
***************
**** File 1) SC3.F4[COL,LCS], Page 1 line 43
1) 04300 1IFM(1)/'('/,IFM2/'1XA5,'/,IFCOM/5H', ',/,IA1/'A1,'/,
1) 04325 1RNDOFF/10000.0/,NPLAY/'PLAY MUSIC.MUS/BYTESIZE=12/SOUND; '/
1) 04360 1,JPLAY/'PLAY; '/
1) 04400 CC 1 ,RCD/"575326135500/,
**** File 2) SC3.F4[SCR,LCS], Page 1 line 43
2) 1IFM(1)/'('/,IFM2/'1XA5,'/,IFCOM/5H', ',/,IA1/'A1,'/,RNDOFF/100.0/
2) CC 1 ,RCD/"575326135500/,
***************
**** File 1) SC3.F4[COL,LCS], Page 1 line 50
1) 04800 CC JPLAY=IPLAY
1) 05000 C NEWMUS OUTPUT WILL HAVE EXTENDED PLAY STATEMENT.
1) 05050 C <PLAY MUSIC.MUS/BYTESIZE=12/SOUND;>
1) 05100 ITOT=1
1) 05200 PR=0
1) 05250 C****** COLGATE LPT IS ALWAYS SPOOLED
1) 05275 IF(JOUT.EQ.22)JOUT=3
1) 05300 DO 9337 K=1,27
**** File 2) SC3.F4[SCR,LCS], Page 1 line 48
2) JPLAY=IPLAY
2) IF(ISAM)JPLAY=IBLA
2) C SAMSON BOX OUTPUT WILL NOT HAVE PLAY STATEMENT.
2) ITOT=1
2) PR=0
2) DO 9337 K=1,27
***************
**** File 1) SC3.F4[COL,LCS], Page 2 line 188
1) 18800 1023 FORMAT(/' < ',A5,'.SCR -- RANDOM NUMBER=',I6/1X7A5)
1) 18900 C********** BELOW IS FOR 'SECTIONS'
**** File 2) SC3.F4[SCR,LCS], Page 2 line 188
2) 1023 FORMAT(/' < ',A5,'.SCR -- RANDOM NUMBER=',I6/1XA5)
2) C********** BELOW IS FOR 'SECTIONS'
***************
1) SC3.F4[COL,LCS] and 2) SC3.F4[SCR,LCS] 4-24-78 19:19 pages 2,2
**** File 1) SC3.F4[COL,LCS], Page 2 line 279
1) 27900 IF(MZ.GE.0)GO TO 3752
1) 27950 IF(ISAM.EQ.0)WRITE(JOUT,1023),ISLAC,IXIN,JPLAY
1) 27960 IF(ISAM)WRITE(JOUT,1023),ISLAC,IXIN,NPLAY
1) 28000 3752 IF(MX.GE.0)GO TO 2752
1) 28050 IF(ISAM.EQ.0)WRITE(1,1023)ISLAC,IXIN,JPLAY
1) 28060 IF(ISAM)WRITE(1,1023)ISLAC,IXIN,NPLAY
1) 28100 2752 BW=0
1) 28200 GO TO 500
**** File 2) SC3.F4[SCR,LCS], Page 2 line 279
2) IF(MZ)WRITE(JOUT,1023),ISLAC,IXIN,JPLAY
2) IF(MX)WRITE(1,1023)ISLAC,IXIN,JPLAY
2) BW=0
2) GO TO 500
***************
**** File 1) SC3.F4[COL,LCS], Page 3 line 202
1) 20200 CIRC IF(PAR.EQ.10000.)GO TO 5174
**** File 2) SC3.F4[SCR,LCS], Page 3 line 202
2) C -10000.='FINE'
2) CIRC IF(PAR.EQ.10000.)GO TO 5174
***************
**** File 1) SC3.F4[COL,LCS], Page 3 line 403
1) 40300 C ROUND-OFF GAP WILL NOT EXCEED .0001 AT COLGATE
1) 40500 7155 IF(P2)K=-K
1) 40600 PP2=K/RNDOFF
1) 40700 C RNDOFF IS SET IN DATA. (10000.0)
1) 40800 ROFF(J)=Y
1) 41000 C AVOIDS ROUND-OFF PROBLEMS
1) 41100 C AFTER ALL THIS P2 IN SUBR MAY NOT EQUAL PP2(REAL TIME) DF COMES LATER!
**** File 2) SC3.F4[SCR,LCS], Page 3 line 404
2) C ROUND-OFF GAP WILL NOT EXCEED .001****.01 WITH NEW DAC!X?#@
2) C*********** FEB 17,71
2) 7155 IF(P2)K=-K
2) PP2=K/RNDOFF
2) CCC7155 PP2=K/100.
2) ROFF(J)=Y
2) CROFF7155 PP2=K/1000.
2) C AVOIDS ROUND-OFF PROBLEMS **** TO 1/100 (1/76)
2) C AFTER ALL THIS P2 IN SUBR MAY NOT EQUAL PP2(REAL TIME) DF COMES LATER!
***************
**** File 1) SC3.F4[COL,LCS], Page 3 line 417
1) 41900 C ROUNDS TO 1/100 OR 1/1000 OR 1/10000 -- RNDOFF
1) SC3.F4[COL,LCS] and 2) SC3.F4[SCR,LCS] 4-24-78 19:19 pages 3,3
1) 42300 W=RDEV(J)
**** File 2) SC3.F4[SCR,LCS], Page 3 line 420
2) C ROUNDS TO 1/100 OR 1/1000 -- RNDOFF
2) CX IF(Y.GE.PP2)Y=PP2/2.
2) CX PP2=PP2-RDEV(J)+Y
2) CX RDEV(J)=Y
2) W=RDEV(J)
***************
**** File 1) SC3.F4[COL,LCS], Page 3 line 426
1) 43700 C NEVER MORE THAN .1( DEVIATION WITH RAN TF. (RTF=.05)
**** File 2) SC3.F4[SCR,LCS], Page 3 line 432
2) CXX W=PP2*100.
2) CXX K=W+.5
2) CXX ROFF(J)=ROFF(J)+K-W
2) CROFF K=PP2*1000.+.5
2) C****** CHECK THIS OUT 1/10/72 :::::::
2) CXX61551 PP2=K/100.
2) C NEVER MORE THAN .1( DEVIATION WITH RAN TF. (RTF=.05)
***************
**** File 1) SC3.F4[COL,LCS], Page 3 line 448
1) 46000 6021 IF(P(NPA).NE.COPY(NPA))GO TO 5021
1) 46100 IF(PL(NPA).GT.1)GO TO 5021
1) 46300 C 'LIT' DATA WILL ALWAYS PRINT.
**** File 2) SC3.F4[SCR,LCS], Page 3 line 460
2) C*********** MAY 16,71 ↑↑↑
2) 6021 IF(P(NPA).NE.COPY(NPA))GO TO 5021
2) IF(PL(NPA).GT.1)GO TO 5021
2) C******* MAY 25,71
2) C 'LIT' DATA WILL ALWAYS PRINT.
***************
**** File 1) SC3.F4[COL,LCS], Page 3 line 465
1) 47900 PP1=PP1-OP1
**** File 2) SC3.F4[SCR,LCS], Page 3 line 479
2) C ********* MAY 17,71
2) PP1=PP1-OP1
***************
**** File 1) SC3.F4[COL,LCS], Page 3 line 510
1) 52400 7170 IFM3='F9.4,'
1) 52500 IFM4='F8.4,'
1) 52520 IF(VX2.GE.100.0)IFM4='F9.4,'
1) SC3.F4[COL,LCS] and 2) SC3.F4[SCR,LCS] 4-24-78 19:19 pages 3,3
1) 52600 KL=5
**** File 2) SC3.F4[SCR,LCS], Page 3 line 525
2) 7170 IFM3='F9.2,'
2) IFM4=IFM3
2) KL=5
***************
**** File 1) SC3.F4[COL,LCS], Page 3 line 528
1) 54100 4211 LN='F7.4,'
1) 54105 C X0.0000
1) 54110 Y=ABS(X)
1) 54120 IF(Y.GE.10.0)LN='F8.4,'
1) 54130 IF(Y.GE.100.0)LN='F9.4,'
1) 54135 C CHANGES FORMAT FOR DIFF. NUMS.
1) 54137 IF(Y.EQ.0)LN='F3.0,'
1) 54140 IF(Y.GE.1000.0)LN='F9.2,'
1) 54145 C***** BIGGEST POSSIBLE NUM. TO PRINT IS +-99999.99
1) 54150 IFM(KL)=LN
1) 54400 421 VX(KL-NL)=X
**** File 2) SC3.F4[SCR,LCS], Page 3 line 542
2) 4211 IFM(KL)='F7.2,'
2) IF(P(K).GT.999.99)IFM(KL)='F9.1,'
2) C CREATES 'F9.1' FOR BIGGER NUMS. (NO NEGS <-999.99)
2) 421 VX(KL-NL)=X
***************
**** File 1) SC3.F4[COL,LCS], Page 3 line 567
1) 57300 CC999 IF(ISAM)GO TO 1921
1) 57400 IF(LK.EQ.IBLA)GO TO 1921
**** File 2) SC3.F4[SCR,LCS], Page 3 line 574
2) 999 IF(ISAM)GO TO 1921
2) IF(LK.EQ.IBLA)GO TO 1921
***************
**** File 1) SC3.F4[COL,LCS], Page 3 line 616
1) 62200 3616 FORMAT(';PRINT (P1);< ',A5,I4)
1) 62300 C PRINTS RESTS
**** File 2) SC3.F4[SCR,LCS], Page 3 line 623
2) 3616 FORMAT(';PRINT P1;< ',A5,I4)
2) C PRINTS RESTS
***************
**** File 1) SC3.F4[COL,LCS], Page 3 line 715
1) 72100 CC IF(JOUT.NE.22)GO TO 3175
1) SC3.F4[COL,LCS] and 2) SC3.F4[SCR,LCS] 4-24-78 19:19 pages 3,3
1) 72200 CC END FILE 22
1) 73100 CC END FILE 22
1) 73200 3175 TYPE 1023,ISLAC,IXIN
**** File 2) SC3.F4[SCR,LCS], Page 3 line 722
2) IF(JOUT.NE.22)GO TO 3175
2) END FILE 22
2) TYPE 7175
2) 7175 FORMAT(' GOING TO LPT')
2) CALL PRINT
2) REWIND 22
2) K='FOR22'
2) CALL OFILE(22,K)
2) CC CALL OFILE(22,K,'.DAT')
2) CC WRITE (22,7175)
2) END FILE 22
2) 3175 TYPE 1023,ISLAC,IXIN
***************